home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D06.D64 / random div quiz (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.7 KB  |  61 lines
  1. 1 REM 3D DEMO, (C)1989 M.H.WESTERWEEL
  2. 2 POKE53280,14:POKE53281,6:POKE646,14
  3. 3 REM READ 1ST FILE FROM DISK
  4. 4 REM =======================
  5. 5 DIMD3$(43):OPEN8,8,8,"0:3D-TEXT FILE,S,R"
  6. 10 FORD3=1TO36:INPUT#8,X$:INPUT#8,Y$:D3$(D3)=X$+Y$:NEXT
  7. 15 FORD3=37TO42:INPUT#8,D3$(D3):NEXT:CLOSE8
  8. 20 D3$(43)=CHR$(13)+""
  9. 22 :
  10. 23 REM READ 2ND FILE FROM DISK
  11. 24 REM =======================
  12. 25 DIMDD$(43):OPEN8,8,8,"0:3D-TEXT FILE 2,S,R"
  13. 30 FORDD=1TO36:INPUT#8,X$:INPUT#8,Y$:DD$(DD)=X$+Y$:NEXT
  14. 35 FORDD=37TO42:INPUT#8,DD$(DD):NEXT:CLOSE8:DD$(43)=D3$(43)
  15. 37 :
  16. 38 REM INITIALIZE STRINGS & RND
  17. 39 REM ========================
  18. 40 UP$="[145][145][145][145][145]":Z$="[147][146]":TT=RND(-TI)
  19. 47 :
  20. 48 REM READ WRONG, RIGHT & HUH?!? DATA
  21. 49 REM ===============================
  22. 50 DIMA(16):FORA=1TO16:READA(A):NEXT
  23. 52 :
  24. 53 REM READ WOW!!! (CENTER SCREEN) DATA
  25. 54 REM ================================
  26. 55 DIMB(14):FORB=1TO14:READB(B):NEXT
  27. 57 :
  28. 58 REM RANDOMIZE DIVISION PROBLEMS
  29. 59 REM ===========================
  30. 60 X=INT(15*RND(1))+1:Y=INT(15*RND(1))+1:XY=X*Y
  31. 70 PRINTZ$;XY;"/";Y;"= ";
  32. 77 :
  33. 78 REM PROCESS USER'S RESPONSE
  34. 79 REM =======================
  35. 80 INPUTI$:PRINT:PRINTCHR$(29);:I=VAL(I$):IFI=XTHEN110
  36. 90 IFI<1ORI>15THEN120
  37. 97 :
  38. 98 :REM PRINT FEEDBACK TO SCREEN
  39. 99 :REM ========================
  40. 100 FORA=1TO5:PRINTD3$(A(A))UP$;:NEXT:WR=WR+1:GOTO130
  41. 110 FORA=6TO10:PRINTD3$(A(A))UP$;:NEXT:RI=RI+1:GOTO130
  42. 120 FORA=11TO16:PRINTD3$(A(A))UP$;:NEXT:H=1
  43. 130 I$="":FORW=1TO1000:NEXTW:IFH=1THENH=0:GOTO70
  44. 140 IFWR+RI<10THEN60
  45. 150 PRINTZ$SPC(10);RI;"OUT OF 10 RIGHT":IFRI<8THEN170
  46. 152 :
  47. 153 REM PRINT WOW!!! FOR 8+/10 RIGHT
  48. 154 REM ============================
  49. 155 FORZZ=1TO10
  50. 160 PRINT"";:FORB=1TO14:PRINTD3$(B(B))UP$;:NEXT
  51. 165 PRINT"";:FORB=1TO14:PRINTDD$(B(B))UP$;:NEXT:NEXT
  52. 167 :
  53. 168 REM RESET FOR NEXT 10 PROBLEMS
  54. 169 REM ==========================
  55. 170 RI=0:WR=0:FORW=1TO2000:NEXTW:GOTO60
  56. 997 :
  57. 998 :REM DATA FOR PRINTING 3D TEXT
  58. 999 :REM =========================
  59. 1000 DATA 23,18,15,14,7,18,9,7,8,20,8,21,8,41,40,41
  60. 1005 DATA 43,42,42,42,42,42,42,42,23,15,23,40,40,40
  61.